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Renew Now, the Price is Going Up 


If you renew your subscription before March 1, 1982, you can renew 
at the current rate of $12/year. Starting March lst, the price ~ 
will go up to $15/year (2nd class mail in the USA). Subscriptions 
sent First Class Mail to USA, Canada, and Mexico will be $18/year. 
Air Mail subscriptions to all other countries will be $28/year. 
The price for back issues will be $1.50 each (plus $1.00 postage 
outside of USA, Canada, and Mexico). 


S-C MACRO Assembler II is almost here! 


I am committed to having a finished product by February 15th. 

This is what I have been calling Version 5.0, but I have decided 
to call it S-C MACRO Assembler II instead. Version 4.0 will still 
be sold at $%5. The MACRO version will be $80. Owners of Version 
4.0 can upgrade for only $27.50. There will be an all new manual, 
rather than the current 2-part manual. 


The MACRO Assembler includes macros (of course!l), conditional 
assembly, EDIT, COPY, global string replacement, and many more new 
features. And it assembles even faster than version 4.0! 


Hi-Res SCRN Function with Color......e.ee.eeeeeeDavid Doudna 


I am a 15-year-old living in St. Louis, Missouri. While looking 
through the back issues of Apple Assembly Line, I found "Hi-Res 
SCRN Function for Applesoft” (May, 1981 issue). I noticed the 
routine only returned a 0 or 1. and you challenged readers to 
write one to return a color value 0-7. Well, I did it. My 
version is not interfaced to Applesoft; that is an exercise for 
the reader! (I use the Programmer's Aid ROM with FORTH.) 


I am not going to explain how hi-res colors work, beyond the 
facts that two adjacent dots are white; the upper bit in each 
byte of the hi-res screen adds 4 to the color value; an isolated 
bit is color 1 or 2 (or 5 or 6) depending on the X-position. If 
you want to understand my program. you should study more about 
hi-res plotting first. 


A word about the color value.... In Applesoft you specify color 
value with a number from 0 to 7. The Programmer's Aid ROM uses 
color values of 0, 42, 85, 127, 128, 170, 213, and 255. My 
program returns both numbers for the color: the 0-7 index in 
HCOLOR, and the P.A.ROM color value in COLOR.BYTE. 


Lines 1060-1140 define the variables used; these are in the same 
locations as those used by the Programmer's Aid ROM. If you 
want to modify the program to work with Applesoft, be sure to 
put these variables in the correct locations. Two more 
variables are defined at lines 2120,2130. 


Lines 1160-1180 pick up the X- and Y-coordinates. I assume you 
have stored the coordinates here before calling HSCRN. Lines 
1190-1390 calculate the base address for the particular 
horizontal line your point is on. This code is just copied out 
of P.A.ROM. Lines 1410-1530 divide the X-coordinate by 7 to get 
the byte offset on the line. The quotient is left in the 
Y-register. The remainder is used to pick up a bit mask to 
select the particular bit within the byte. 


Lines 1540-1650 make the first color check. The high-order 
bit of the byte (half-dot shift control). If the bit specified 
= zero, the color is black. If it = one, the color depends on 
whether either neighbor of this dot = one. If neither neighbor 
= one, the color depends on whether this dot is in an even or 
odd column. If the color is not black, I put 1 or 2 in the 
X-register to indicate the color it will be if it is not white. 


Lines 1660-1790 check the neighbor bit on the left to see if it 
= one. Notice that there are several special cases. First, the 
left-neighbor might be in the same byte. Second, it might be in 
the byte to the left of this one. Third, there might not be a 
byte to the left of this one. 


Lines 1800-1920 check the neighbor bit on the right. The same 
kind of special cases exist here, and they are handled the same 
way. 


Line 1940 sets X = 3 for white color. Line 1960 gets the color 
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value in the A-register. All paths merge at line 1980, with the 
color index 0-3 in the A-register. All that remains is to add 4 
if- the half-dot shift control = 1 (Lines 1980-2010. 


Lines 2020-2060 convert the color index to a color byte (by 
simple table-lookup), and return. Line 2100 is the table of 
color values. 


Here is a table of colors (their names, index numbers, and 
P.A.ROM numbers): 


Color Byte Value 
Color Index Hex Dec Binary 


BLACK 0 00 0 00000000 
GREEN 1 2A 42 00101010 
VIOLET 2 55 85 01010101 
WHITE 3 7F 127) 01111111 
BLAC” 2 4 80 128 10000000 
ORANGE 5 AA 170 10101010 
BLUE 6 D5 213 11010101 
7 


WHITE2 FPF 255 11111111 
The program works with either page 1 or page 2 of Hi-Res. Set 
HPAGE to $20 for page l, or $40 for page 2. 


To call this program from Integer BASIC, you would first POKE 
the X- and Y-coordinates, then CALL the program, and then PEEK 
the color value. From assembly language, set up the coordinates 
and JSR HSCRN. The color index is returned in the X-register, 
and the color byte value in the A-register. 


[ Program and article modified somewhat by the editor ] 


1000 Seeeistecceec csc ce eee ects 

1010 . HI-RES SCRN FUNCTION WITH COLOR 

1030 & BY DAVID DOUDNA, FERGUSON, MISSOURI 

10 0 ® NOVEMBER 30, 1981 
0026- 1020 HBASL .EQ $26 BASE ADDRESS 
0027- 1070 HBASH :EQ $2 
0030- 1080 HMASK .EQ $30 BIT MASK 
0320- 1100 XOL EQ 320 X-COORDINATE 
0321- 1110 XOH = SEQ 
0322- 1120 YO EQ $322 Y-COORDINATE 
0324~ 1130 HCOLOR.BYTE .EQ $324 
0326- 1180 y HPAGE .EQ $32 HI-RES PAGE ($20 OR $40) 
0800- AD 22 03 1160 HSCRN LDA YO T (A)=¥-COORDINATE 
0803- AE 20 03 1170 X XOL CET Y,X)=X-COORD. 
0806- AC 21 03 1180 LDY XOH 
0809- 48 1190 PHA Y-COORD BITS LABELED ABCDEFGH 
O80A- 29 CO ~—w-1200 AND #$C0 CALCULATE BASE ADDRESS FOR Y-COORD 
O80C- 85 26 1210 STA HBASL IN HBASL,HBASH FOR 
O80E- 4A 1220 LSR ACCESSING SCREEN MEMORY 
O80F- 4A 1230 LSR VIA (HBASL),Y 
0810- 05 26 1240 ORA HBASL - HBASH = PPPFGHCD 
0812- 88 26 ~=—«-: 1250 STA HBASL | HBASL = EABABOOO 
08 14- 1260 PLA WHERE PPP=001 FOR $2000-3FFF 
0815= 85 27 1270 STA HBASH AND PPP=010 FOR $4000-5FFF 
0817~ OA 1280 ASL 
0818- OA 1290 ASL 
0819= OA 1300 ASL 
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O81A- 26 27 1310 ROL HBASH 
O81C- OA 1320 ASL 
a i 
oan 66 26 «1350 ROR HBASL 
0822- AS 27 ~—«- 1360 LDA HBASH 
0824-29 IF 1370 AND #$1F 
0826- OD 26 03 1380 ORA HPAGE 
0829- 85 27 ~ 1390 BASH 
O82B- 8A 1410 TXA DIVIDE X-COORD BY 7 (7 DOTS PER BYTE) 
082c- CO 00 ~— 1420 CPY #0 I$ X-COORD > 2552 
O82E- FO 05 ~—- 1430 BEQ .2 ENTER SUBTRACTION LOOP 
BAS Se SEE BR ihe a5 fons 5 
eer ea © i420 ® ALSO CLEARS chan 4 90 SBC #7 BELOW 

Pn eee 

- 1 e 
op ae E907 1490 12 SBC #7 SUBTRACT 7 (OR NT IF CARRY CLEAR) 
0837- BO FB —- 1500 BCS .1 SPL MORE 7°S 
0839- AA 1510 TAX REMAINDER IS BIT POSITION 
O83A- BD 9E 07 1520 LDA MSKTBL-249,X 
083D- 85 30 1530 STA HMASK _ 

- 1550 ~+LDA (HBASL),Y GET BYTE WHICH HAS OUR SPOT 
Ona Bg a6 ; 1220 AND #$80 "’ ISOLATE HALF-DO? SHIFT BIT 

: 08 1570 
opae- Bp ae 08 12K0 LDA (HBASL),Y GET BYTE AGAIN 
O848- 25 30 1590 AND HMASK ’ ISOLATE OUR SPO 
O84A- FO 38 1600 BEQ .9 Coe ES BLACK (0 OR 4) 
Be Hs BR Gh 
p8ei- HA 16 30 LSR ODD OR EVEN X-COORD.? 
ORe oe BO O1 «1680 BCS .3 ODD, COLOR=1 OR 5 
0854- E8 1650 . INX EVEN, COLOR=2 OR 6 
= 3... +LDA HMASK LOOK AT NEIGHBOR BIT ON LEFT 

One rane 1873 : CSR BITS ARE IN BYTE BACKWARDS 
0858- 90 OD 1690 BCC .4 NEIGHBOR IN SAME BYTE 
OB5A- 98 1700 TYA NEIGHBOR IN DIFFERENT BYTE 
o85B- BO 0g 1710 BEQ .5 NO BYTE LEFT OF THIS ONE 
O85E- B1 26 1730 LDA (HBASL),Y 


WHAT, ANOTHER IMPROVEMENT ? 
Yes! DISASH The Intelligent Disasseebler For The APPLE Has Been Enhanced With More Features Making It One 
Of The Most Powerful Utilities Of Its Kind. DISASH Converts 6582 Machine Code Into Meaningful, 
ource. The Resultant Text File Can Be Used With Any Of The Most Popular Assesblers. 
Invaluable Aid For Understanding And Modifying Machine Language Programs. Here Are The Specs: 


DISASM (VERSION 2.2) 

# Selectable output formats are directly compatable with DOS ToolKit, LISA and S-C (4.0) Assembiers. # 108% 
machine language for fast operation. # Auto-proapting for easy use. # Operates on either the APPLE II or 
APPLE II Plus. # Labels automatically assigned as Pg Zero, External or Internal. # Labels and addresses are 
sorted for user convenience. # ORIGIN and EQUATE pseudc-ops provided. # Source segmentation after JMP and 
RTS allows for easier reading and understanding. # No restriction on disassembled block length {other than 
RAM or Assembler lisitations). | # Correctly disassembles displaced object code (The program being 
disasseabled doesn’t have to reside in the semory space in which it executes). # User defined Label Name 

able replaces arbitrary label assignments (External, Pg Zero and even Internal labels become sore 
weaningful, e.g. JSR COUT, LDA WADTOP. The use of the Name Table is optional. # Monitor ROM Label Nane 

able is included with over 168 of the most commonly used subroutine labels. Label table SOURCE is also 
provided so you can extend and customize it to your om needs. # Multiple data tables with user defined 
forsat may be intermixed with instructions. # NEW ' A FULL Cross-Reference provides a complete table (to 
screen or printer) grouped by referenced address type. # NEW ' A SINGLE Cross-Reference feature searches 
through the object code for a single user-specified address. 


DISASM (2.2) Program Diskette & User Manual: $38.08 Upgrade Kit for previous purchasers of DISASM: $i2.5¢ 
All shipments within continental USA via First-Class sail Foreign Orders: Add $3.08 for Air Mail 


RAK -~-WA RE 
41 Ralph Road 
West Orange NJ @7852 
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0860- 29 40 1740 
oR6o- 56 1D i150 ane #gh0 WHITE 
O864- C 1760 INY RESTORE Y 
0865- DO oY 1770 BNE .5 vee ALWAYS. 
0867- 31 2 1780 .4 AND (HBASL),Y 
0869- DO 1 1790 BNE .7 WHITE 
O86B- A5 30 1810 «5 LDA HMASK LOOK AT NEIGHBOR BIT ON RIGHT 
O86E- 10 oD 1830 BPL .6 NEIGHBOR IS IN SAME BYTE 
0870- CO 27. ~—«-18ho CPY #39 ALREADY AT RIGHT END? 
O872- BO OF 1850 BCS YES, NOT WHITE THEN 
Be ee te RE ymua 
5 te FO : 1969 BEG MEST WAYS (NOT WHITE) 
0 Te 12 1840 .6 AND (HBASL),Y __ 
O87F- FO 02 1920 ° BEQ .8 NOT WHITE 
0881- A2 03 1310 7 LDX #3 COLOR IS WHITE (3 OR 7) 
0883- 8A 1960 TXA COLOR TO A-REG 
0884- 2C AG 08 1050 .9 BIT HIBIT SEE IF HALF DOT SHIFT 
0887- 10 03. +1990 BPL .10 NO 
OO eae bo on 3040 KDC el YES 
ee oes Oe” aoe cons (0-7) TO GET COLOR B 
. z YTE 
0890- BD 9E 08 20h0 LDA COLOR. TABLE, X 
0893- 8D 24 03 2050 STA HCOLOR. BYTE 
0896- 60 060 RTS 
O10 Gea see ee eeeene 
peels Ob te oc 
O89D- 40 2080 MSKTBL .HS 01020408102080 
ee 
OBAN- D5 FF 2100 COLOR.TABLE .HS OO2ASSTF8OAADSFF 
O8A6- 5120 HIBIT .BS 1 MSB ~ 
O8A7- 5130 HCOLOR :BS 1 COLOR INDEX 0-7 


NEW UTILITY FOR THE S-C ASM 

Do You Like Having Your Labels, Opcodes And Comments Lined Up For Readability, But Don't Want To Give Up 
Free Format Entry. Or Did You Set Your Tabs For 8 Char Labels And Found You Needed A Few Longer Ones? Now 
There's No Need To Manually Edit Just To Lineup Those Colusms. SC.TAB Is A Source Formatting Utility For Use 
With The S-C Assembler (4.8). You Simply Specify The Colum Nusbers For Opcodes And Comments And SC. TAB Does 
The Rest. A Two-Pass Operation Insures You That There Are No Confilcts Before Any Changes Are Actually Made. 
Should A Problew Arrise Then The Offending Line And The Tab Settings Are Displayed For Your Inspection. The 
User Can Limit Changes To Any Portion Of Source. SC. TAB Is Fast Since Its 108% Machine Language. 


SC. TAB Progras Diskette & User Manual: $15.08 
INTRODUCTORY OFFER! 
For A Limited Tise SC. TAB Is Available At A Special Introductory Price When Purchased With Both Of Gur Other 
S-C Assembler Utilities. 
# SC.XREF : Generates Label Cross Reference Tabels For Complete Source Documentation 
# SC.65R : A Global Search-find-Replace Eliminates Tedious Manual Renaming Of Labels 
Normally, All Three Utilities Would Cost $55.08. Buy Them Now And Save $18.08 


SC Utility Package: $45.88 


All shipments within continental USA via First-Class sail Foreign Orders: Add $3.08 for Air Mail 


RAK -—-WARE 
41 Ralph Road 
West Orange NJ 87052 
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A Correction to "Step-Trace Utility"....Bob Sander-Cederlof 


"Step-Trace Utility", published in the July 1981 issue of AAL 
(pages 17-20), has a bug. Three or four of you ran into the 
problem and called me about it, but I was never able to 
duplicate the problem. Finally Bob Leedom managed to pinpoint 
the bug, and I found out how to fix it. 


If you have used Step-Trace, you might have noticed that it 
sometimes will hang-up or go crazy after a relative branch 
instruction. The problem is that if the 6502 was in decimal 
mode, the calculations are all incorrect. This affects the 
branch target, and also messes up screen output. To fix it, 
insert the following line: 


2095 CLD SELECT BINARY MODE 


But how did the 6502 get into decimal mode, when I wasn't ever 
setting it? The contents of SAVE.P were random on initial 
start-up. Sometimes the contents managed to switch on decimal 
mode! Perhaps you should also insert the following two lines, 
to be certain of the initial status of the program you are 
tracing: 


1455 LDA #0 CLEAR INITIAL STATUS 
1456 STA SAVE.P 


Future copies of Quarterly Disk #4 already have these two 
patches installed. 


RPPLE Seat ORT tt 


SeafORTH for the Apple conputer with DOS 3.3 and 
at least 32K of RAN. Includes Disc 1/0, Editor, 
Assenabler, transcendental Floating Point, high 
level source listing, and 156 pg. penual with 
copplete source listing. SeafF ORTH ig e 
consistant structured operating system providing 
the progranper with the tools to eesily creete 
prograss from psechine tlenguege te high level 
compiled applications. Edit- coppile- execute- 
edit cycle is measured in seconds, not pinutes. 
Inpplepented as a true increpentel coppiler. 
SeaFORTH generates pachine code, not interpreted 
address lists. Direct threaded subroutine code 
ipplesentation executes such fester then FI6 
style interpreted eddress versions. Hot for the 
novice prograpper. Nanual alone is 825.66, disc 
and panual for only 875.60. Send Check or Honey 
Order tos 


TAU LAMBDA 

P.0. BOX 868 
POULSBO, WASHINGTON 
98370 

€266) 598-4863 
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Ss-C ASSEMBLER II Version WA 6 55086 046 RGA 44 WOE Wes ODD OU 
Includes Manual, Diskette with Assembler and sample 
source programs, and Quick Reference Card. 


Source code Of Version 4.0 On disk. .cccccccccccccrcccccccccceee 9 IIe 00 
Fully commented, easy to understand and modify to 
your own tastes. 


Cross Assembler Patches fOr 6809... .cccccccccccsccccccvsvcevcees 920,00 
Requires possession of Version 4.0. Enables you to 
develop programs for the Motorola 6809 CPU. (The 
MILL from Stellation, EXCEL-9 from ESD Laboratories, 
or the Radio Shack Color Computer.) 


Cross Assembler fOr 6800... cc cccceccvccccccvccscccccccccssccscse gees d0 
Requires possession of Version 4.0. Enables you to 
develop programs for the Motorola 6800, 6801, and 
6802 CPUs. 


AAL Quarterly Di SK 6 4c ah 6s Gwe 65 66666 0 he wws eee eo beer eeOcn $15.00 
Each disk contains all the source code from three 
issues of “Apple Assembly Line", to save you lots 
of typing and testing time. 
QD#1l: Oct - Dec 1980 QD#4: Jul - Sep 1981 
QD#2: Jan - Mar 1981 QD#5: Oct - Dec 1981 
QD#3: Apr - Jun 1981 


Double Precision Floating Point for Applesoft........cccccceeee 990.00 
Provides 2l-digit precision for Applesoft programs. 
Includes subroutines for standard math functions. 


Some Simple Integer BASIC GaMeSccccccccecccvvscesceccccccccsce cs 910.00 
Includes 4x4x4 tic-tac-toe, lo-res space war, lo-res 
jig-saw puzzle, and mastermind. 


Blank Diskettes....c.cccceccccccccccccesecccee e package of 20 for $50.00 
Verbatim Datalife, with hub rings, no labels, in plain 
white jackets, in cellophane wrapper. 


Lower -Case Display Encoder ROM .cecee @eeeesevoeaeeseeeeeoeeene#e 8ese @ oc0ee 0 9259-00 
Works only Revision level 7 Apples. Replaces the 
encoder ROM. Comes with instructions. 


Diskette Mailing ProtectorB....ccccccccccccseccceelO-99: 40 cents each 
100 or more: 25 cents each 
Corrugated folder specially designed for mailing 
mini-floppy diskettes. Fits in standard 6x9-inch 
envelope. (Envelopes 5-cents each, if you need then.) 


Zip-Lock Bags (2-mil, OP RS” ) kaows wededk cies des eus cess eel OG for $8.50 
(2-mil, O° X12 ) 6k 26 6 66 oe 8466s eee aweee ee oe 00 for $13.00 


Books, Books, BOOKS... ..cccccsccoceeeeesee Compare our discount prices! 
"Beneath Apple DOS", Worth & Lechner......cceceeee ($19.95) $18.00 
"What's Where in the Apple", William Leubert.....($14.95) $14.00 
"6502 Assembly Language Programming", Leventhal.. ($16.99) $16.00 
"Apple Assembly Language", Don & Kurt Inman......($12.95) $12.00 


##*% S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
##@ (214) 324-2050 We take Master Charge and VISA **# 
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6502 RelocatoOr...cccccccccsceccccccececsee BOD Sander-Cederlof 


Programs that are already assembled usually must be loaded at a 

specific memory address to execute properly. If you want to run 
it somewhere else, you have a problem. All the data references, 
JMP’s, and JSR‘'s will have to be examined to see if they need to 
be modified for the new location. If you don't have the source 

code, you can't re-assemble it. The other way, patching, can be. 
quite a tedious operation! ° 


Fortunately, way back in 1977. the WOZ (Steve Wozniak to you 
newcomers) wrote a program to do the work automatically. If you 
have the Programmer's Aid ROM then you have his RELOCATE 
program. You who have Apple II Plusses with the Language Card 
(also called 16K RAM card) can also use his program, because it 
is in the INTBASIC file along with Integer BASIC. (The latter 
group of people probably don't have the manual, though, because 
they didn't buy the ROM.) 


I would like to see the RELOCATE program made more widely 
available, but it cannot be used as is unless you have Integer 
BASIC. Why? Because it uses SWEET-16 opcodes. RELOCATE also 
is itself tied to running at whatever location it is assembled 
for, so it can be a little trouble to find a place for it 
sometimes. By now you have probably guessed that I have recoded 
RELOCATE to solve both of these problems! 


Paul Schlyter's article elsewhere in this issue of AAL shows 
RELOCATE put to good use. You can examine his instructions and 
learn most of what you need to know to use RELOCATE on your own 
programs. Basically, there are four steps: 


1. Initialize. This sets up the control-Y monitor command. 
If RELOCATE is on a file, you do this with "BRUN RELOCATE”. 


2. Specify the program start and end addresses (where it 
now is in memory), and the new starting address (where you 
want it to be relocated to). This is done with the monitor 
command: 


target<start.end“y* 


where “target” is the new starting address, and "start" and 
“end” are the addresses of the program where it is now. 
““y" means “control-y". The "*" after the control-Y signals 
RELOCATE that you are in step 2 rather than step 3 or 4. 


3. Specify the FIRST block to be copied “as-is” or to be 
"relocated" to the destination area. This is done with the 
monitor command: 


target<start.end“Y 
Or target<start.endM 


where "target" is the starting address in the new area for 


this block, and "start" and "end" define the block itself. 
Note that there is no trailing asterisk this time. Use 
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control-Y if you want this block relocated, or M if you want 
it copied as-is. 


4. Specify the NEXT block to be copied aS-is or relocated. 
You do this with the monitor command: 


eend“y 
or -endM 


where the target and start addresses are assumed to 
immediately follow the previously handled block, and “end" 
specifies the end of this new block. Use control-Y to 
relocate the block, or M to copy it as-is. 


Obviously. step 4 above is repeated until the whole program has 
been copied/relocated. For each block of your program that is 
to be copied as-is, with no modification at all, you use the "M" 
command; for each block to be relocated you use the “control-yY" 
command. 


If you need more detailed instructions and explanation, I must 
refer you to the manual. The Programmer's Aid #1 Manual is sold 
at most computer stores separately from the ROM package. Pages 
11-28 explain why and how to use RELOCATE, and pages 80 and 81 
contain the assembly listing. 


Now here is my new version, which can be BRUN anywhere you have 
134 ($86) bytes available. I have eliminated the SWEET-16 
usage; this made the program slightly bigger, and a lot faster. 


Lines 1260-1380 are the initialization code. They build the 
control-Y vector at $3F8-3FA. A JMP opcode is stored at S$3F8; 
if you have DOS up this is redundant. but it won't hurt. Next I 
have to try to find myself. That is, where in memory am I (the 
program RELOCATE) located? JSR MON.RETURN (which is only an RTS 
instruction, so it comes right back without doing anything) puts 
the address of the third byte of the JSR instruction on the 
stack. Lines 1290-1370 use that address to compute the address 
of RELOC, and store it in $3F9 and S$3FA. 


When you type in a control-Y command, the monitor will now 
branch to RELOC at line 1400. Lines 1400-1430 look at the 
Character after the control-Y in the command input buffer; if it 
is an asterisk, then you are trying to do step 2 above. If not, 
then you are on step 3 or 4. Lines 1440-1500 handle step 2, and 
lines 1510-1990 handle steps 3 and 4. 


The part which used to be coded in SWEET-16 was lines 1690-1880. 
The SWEET-16 version took only 14 bytes, while the 6502 code 
takes 34 bytes. The 6502 version may take about 100 
microseconds to execute. and the SWEET-16 version on the order 
of 1000 microseconds (for each instruction relocated). 
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tT Desisiain 
Decision Systems 


S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISANM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$36. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 
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(000) Weteeeece cai docsreccneeseeocseces 
1010 é 6502 RELOCATION SUBROUTINE 
1030 : MAY BE LOADED ANYWHERE, AS IT IS SELF-RELOCATABLE 
1050 # ADAPTED FROM SIMILAR PROGRAM IN PROGRAMMERS AID #1 
1060 # ORIGINAL PROGRAM BY = toz -10-77 
1070 # ADAPTED BY BOB SAND CEDERLOF , 12-30-81 
1080 : (ELIMINATED USAGE OF ASHEET 16) 
0034- 1100 MON.YSAV_.EQ 34 COMMAND BUFFER POINTER 
002F- 1110 MON.LENGTH .EO # BYTES IN INSTRUCTION - 1 
F88E- 1120 MON. INSDS2 .EQ eBBE DISASSEMBLE (FIND LENGTH OF OPCODE) 
FCB4- 1130 MON.NXTAN .EQ $FCBY UPDATE POINTERS, TEST FOR END 
FF58- 1140 MON.RETURN .EQ $FF58 
0100- 1150 STACK [EQ $0100 SYSTEM STACK 
0200- 1160 INBUF "EQ $0200 COMMAND INPUT BUFFER 
003C- 1325 Al .EQ $3C, 3D 
003E- 1190 A2 EQ 35, 3F 
0042- 1200 Ay [EQ $42) 
0002- 1210 R1 “EQ $02,0 
0004- 1220 R2 7EQ $04;0 
0008- 1230 Ry “EQ $08,0 
000A- 120 INST  -EQ $0A;0B,0C 
0800- A9 1260 START LDA sic JMP OPCODE 
0802- 8D F8 03 1270 STA $3F8 BUILD CONTROL-Y VECTOR 
0805~ 20 58 FF 1260 are JSR MON.RETURN | FIND OUT WHERE I AM FIRST 
ae Eye ar tow ae 
O80B- BD 00 01 1320 LDA STACK ,X Low BYTE OF START1-1 
OBOE- 69 IN | 1330 ape gg START 
0813- BD 01 01 1350 LDA STACK+1 HIGH BYTE OF START1-1 
0816- 69 00 1360 ADC TRELOC STAR RT 1 
0818- 8D FA 03 1370 STA $3FA 
081B- 60 1390 . RTS 
O81C- AX 34 1400 RELOC LDY MON YSAV COMMAND BUFFER POINTER 
SEE Bg GG 02 183 ak Fe. Ger Snip arran ConTtol- 
0823- DO 0C 1430 BNE RELOC2 NO t LOCATE A BLOCK 
0825- F6 34 1440 INC MON. YSAV YES GET BLOCK DEFINITION 
O827- A2 07 1450 LDX #7 OPY Al, A2, AND AJ 
0829- B5 3C 1460 .1 LDA A1,X 
O82B- 95 02 1470 STA R1,X 
O82D- CA 1480 DEX 
O82E- 10 F9 1490 BPL .1 
0830- 60 1500 . RTS 
0831- Ad 02 1320 RELOC2 LD #2 ; COPY NEXT 3 BYTES FOR MY USE 
o835- 99 OA 00 130“! STA INSTSY 
0839- 10 F8 1560 BPL .1 
O83B- 20 8E F8 1570 JSR MON.INSDS2 GET LENGTH OF INSTRUCTION 
O83E- A6 2F—- 1580 LDX MON.LENGTH O=1 BYTE, 1=2 BYTES, 2=3 BYTES 
Seige Ch?! Neon Bey"? TMBETE OFCODE 
0843- DO OC 1610 BNE .2 ~BYTE OPCODE 
O845- AS OA 1620 LDA INST -BYTE OPCODE 
O847- 29 OD 1630 AND #$0D SEE IF ZERO-PAGE MODE 
OBuB. D9 BB dee case ee 
O84D- DO 24 1660 BNE .3 NO (80-FF OPCODE) 
O84F- 85 OC 1670 : STA INST+2 CLEAR HIGH BYTE OF ADDRESS FIELD 
0851- AS O4 1690 .2 LDA R2 COMPARE ADDR TO END OF SOURCE BLOCK 
Sree Te a a 
- + 
0857- E5 7 1720 SBC INST+2 
0859- 90 18 1730 BCC .3 ADDR > SRCEND 
O85B- 38 1740 SEC COMPARE ADDR TO BEGINNING OF SRC 
085c~ A5 OB «+1750 LDA INST+1 
SbeGs Abed TAY 
gH: Boe 8 Bk ste 
- + 
0865- 90 0C 1500 BCC .3 ADDR < SRCBEG 
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O867- AA 1810 TAX 

0868- 98 1820 TYA ADDR = ADDR-SRCBEG+DESTBEG 

0869- 18 1839 CLC 

O86A- 65 08 1840 ADC R4 

O86C- 85 0B 1850 STA INST+1 

O86E- 8A 1860 TXA 

O86F- 65 09 1870 ADC R4+1 

0871- 85 OC eee STA INST+2 

0873- A2 00 1900 .3 LDX #0 COPY MODIFIED INSTRUCTION TO DESTINATION 
0875=- AO 00 1910 LDY 

0877- B5 OA 1920 .4 LDA INST,X NEXT BYTE OF THIS INSTRUCTION 

0879= 91 42 1328 STA (A4),Y 

O87B- E8 1940 INX 

087C= 20 BY FC 1950 JSR MON .NXTA4 ADVANCE Ai AND A4, TEST FOR END 
O87F- C6 2F 1960 DEC MON.LENGTH TEST FOR END OF THIS INSTRUCTION 
O881- 10 F4 Ihe BPL . MORE IN THIS INSTRUCTION 

0883- 90 AC 19380 BCC RELOC2 END OF SOURCE BLOCK 

0885- 60 1990 RTS 


A Review of THE INDEX 64 46440660 00%546060 BOD Sander -Cederlof 


THE INDEX is a new book that you can use. No doubt you 
subscribe to three or more magazines and newsletters, out of the 
100 or so that are being published with information Apple owners 
want and need. Wouldn't you like a composite index that covered 
the best ones? 


Bill Wallace an attorney in St. Louis, Missouri, has put 
together just such an index. His book compiles over 12000 
articles, editorials, and columns from over 900 issues of 
personal computer magazines published during the last six years. 
Over 40 different magazines and newsletters are covered. I am 
honored that Bill has chosen to include both of my newsletters: 
Apple Assembly Line, and AppleGram. 


Organized as a Key-Word in Context (KWIC) index, there are over 
30000 entries. There are 92 pages of Apple-related articles, 
160 pages covering other computers (Apple owners will be 
interested in the CP/M and 6502 sections), and over 200 pages of 
general articles. All the information necessary for obtaining 
copies and/or subscriptions of the various magazines and 
newsletters is also included. 


Bill plans to publish a second edition later this year to 
include the issues published since the cutoff date of the first 
edition, as well as lots of additional publications that were 
not previously covered. 


THE INDEX costs $14.95, and is available from Missouri Indexing, 
Inc., P. O. Box 301, St. Ann, MO 63074. Bill is responsive to 
requests for group rates, if you can interest your local Apple 
Club; call him at (314) 997-6470. 
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Serious Problem in Apple DOS..............-Bob Sander-Cederlof 


If you are trying to use the IRQ interrupt line for any purpose, 
and also DOS. you may have run across this problem before, 
Apparently at random, for no good reason, you may get the NO 
BUFFERS AVAILABLE message. 


The reason is that both DOS and the IRQ interrupt code are 
trying to use the same page zero location: $0045. DOS uses this 
location as part of a pointer address when looking for the next 
available buffer. (See the code at SA2CB-A2CF and $A764-A780.) 
DOS also uses $0045 when printing the catalog (see S$ADB9, SAE09, 
and $AE53). 


The IRQ interrupt code in the Apple Monitor ROM (at $FA86) uses 
$0045 to save the contents of the A-register. If an interrupt 
occurs while DOS is in the process of looking for a buffer, POW! 


One solution is to turn off interrupts whenever DOS may be 
active, using the SEI opcode. A better solution would be quite 
difficult: look through all of DOS and modify every reference 
to $0045 (or to $0044 and $0045 as a pair) to use some other 
location in page zero. A third possible solution for those who 
can do it is to modify the Apple Monitor ROM to use some other 
location to save the A-register. 


In case you ARE uSing interrupts and DOS together, you should 
also know that RWTS does inhibit interrupts while it is active. 
After a call to RWTS is complete, the interrupt-inhibit status 
is restored to whatever it was before the call. Interrupts 
cannot be allowed during RWTS, because of the critical software 
timing code involved in reading and writing the disk. 


APPLE 8-BIT 8-CHANNEL A/D SYSTEM 


> 8-BIT RESOLUTION » ELIMINATES NEED.TO WAIT FOR A/D CON- 
VERSION 


>» ON BOARD MEMORY- » A/D PROCESS TOTALLY TRANSPARENT 
(Just peek at data) TO APPLE. 


» FAST CONVERSION - » FULL SCALE INPUTS CAN EASILY BE 
(.078 ms per channel). CHANGED BY USER. 


APPLIED ENGINEERING'S A/D board is a breakthrough product for all APPLE owners 
giving real world data at a really affordable price. Diverse applications include monitoring 
of: 


TEMPERATURE WIND SPEED WIND DIRECTION.... 
LIGHT INTENSITY RPM SOIL MOISTURE 


CONTRIBUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL A/D OWNERS IN OUR NEWSLETTER. 
MASTER CHARGE & VISA WELCOME 


See your dealer or contact - as 
APPLIED ENGINEERING Semel Ase beets 
P.O. BOX 470301 g 7:00 AM - 11:00 PM 7 DAYS A WEEK 


DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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-~-~-------- (CE EMAC )----------- 


THE VISUAL COMPOSITION SYSTEM 


RELEASE 1.0 NOW AVAILABLE 


$40% 


CEEMAC IS THE LANGUAGE OF FIRE ORGAN, 
WHICH WAS THE 1ST *SOFT VISUAL ALBUM’. 


A SYSTEM TO CREATE PERFORMANCE LEVEL 
ABSTRACT VISUALS TO ACCOMPANY MUSIC 
HAS ELUDED OUR GRASP FOR EONS. MY 
PERSONAL SEARCH HAS LED TO CEEMAC. 


DESIGNED PRIMARILY TO SUPPORT THIS NEW 
ART FORM, CEEMAC FROVIDES A HIGHLY 
INTERACTIVE COMPOSING ENVIRONMENT. IT 
REQUIRES AN APPLE JC COMPUTER RUNNING 
DOS 3.2 WITH 48E OF RAM MEMORY. 


THE LANGUAGE COMES WITH A FIFTY PAGE 
MANUAL AND OVER FORTY SCORES INCLUDING 
THE ORIGINAL 36 FROM FIRE ORGAN. THEY 
HAVE BEEN SPECIALLY COMMENTED BY THE 
COMPOSERS TO HELF YOU GET STARTED. 


' * ADD NOTHING FOR TAXES, FOSTAGE, ! 
' HANDLING, ETC, ANYWHERE IN THE USA ! 


° <ome eeee erms e cemne cutie Ones tone tmoee emme momme omg comes ome wee cee eee ome omere cme comme pres Merce cme comme my oes cee cee eee eee wees rome cee oe * 


VAGABQNDO ENTERFRISES 
1200 E ALGONQUIN - 26 
SCHAUMBURG IL - 60195 


( DIRECT MAIL ORDERS ONLY ) 
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Putting S-C Assembler II on the Language Card . . Paul Schlyter 


{ Paul is a subscriber in Stockholm. Sweden. ] 
Introduction 


I have owned the S-C Assembler II for only a little more than 
three weeks, and already I have stopped using the two other 
assemblers I used to use before (“Apple Text Processing System" 
and "DOS Tool Kit Assembler"). Although the others have some 
powerful features, the S-C Assembler is so much easier to use it 
now takes me only about half the time to finish an assembly 
language program as it did before. 


The many Similarities between the S-C Assembler and Integer 
BASIC made me curious, so I disassembled the Assembler. Earlier 
I have done the same thing with Integer BASIC, Applesoft, and 
DOS. It wasn't too long (about a week) that I had a fair 
understanding of the first third of the assembler. Then the 
idea turned up in my head: "Why not try to relocate it into the 
language card?" Another week of sleepless nights and it was up 
and running! 


There were several traps on the way. It took a long time for me 
to discover the address stack put into DOS at $1333-133C. 
Sometimes I just entered the regular assembler at $1000-24FF and 
didn't notice anything, sometimes the machine crashed when a DOS 
error occurred. But that was a week ago, and the last week 
nothing like that has happened...now I feel fairly confident 
that I have found all bytes that need to be relocated. If 
anything does turn up, I will let you know. 


Why and How 


Have you ever thought about how very similar to Integer BASIC 
the S-C Assembler II is? It stores its source files as DOS 
type-I files, and numbers the lines the same way as Integer 
BASIC. Just like in Integer BASIC, you have access to all DOS 
commands. Well, the similarities don't stop there. Integer 
BASIC starts at address $E000 and ends a little bit above $F400; 
the S-C Assembler starts at $1000 and ends a little bit above 
$2400. The byte at $E000 is $20 in Integer BASIC (JSR opcode) 
while it is $4C in Applesoft (JMP opcode); it is by looking at 
this byte that DOS decides whether Integer BASIC or Applesoft is 
the current language. Well, guess what the byte at $1000 in the 
S-C Assembler is: it's $20! . 


When putting all these facts together, I started to wonder if it 
wasn't possible to relocate the S-C Assembler up into the 
Language card, making DOS believe it is in Integer BASIC. This 
of course requires that you have Applesoft on the motherboard 
ROMs, so that DOS will be able to distinguish between the ROM 
and Language card languages. 


Sure enough, it is possible. I did move it up there, and it 
works, and it turned out to be really convenient. The DOS 
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command FP puts me in Applesoft, while INT puts me into the S-C 
Assembler! Also, if I am currently in Applesoft and LOAD an S-C 
Assembler source file (type-I, of course), DOS will 
automatically start up the assembler! Can you really ask for 
more? 


To relocate the S-C Assembler into the language card, you need 
of course a language card (any of the several RAM cards no 
available will do). You also need to have Applesoft in ROM on 
the motherboard (not Integer BASIC). You also need a relocation 
program; I used the one in the Programmer's Aid #1 software, 
which is in the INTBASIC file on the DOS 3.3 System Master. You 
could use the one in Bob Sander-Cederlof's article elsewhere in 
this AAL just as well. 


Step-by-step Procedure 


1. Boot the DOS 3.3 System Master. This will load Integer 
BASIC into the Language Card. 


2. Type INT to enter Integer BASIC. 


3. Put in the S-C Assembler II disk, and BLOAD ASMDISK 4.0 (do 
not BRUN it). 


4. Enter the Apple monitor by typing CALL -15]1. (Throughout 
the following steps, be sure you do NOT hit RESET!) 


5. Now that you are in the monitor. type the following 
commands: 


C083 C083 (write-enable the language card) 
D4D5G (initialize the relocation program) 
E000<1000.24FF°Y* (specify source and destination 
blocks for the relocation program. 
Note that "“Y" means "control-yY". 
The asterisk at the end IS necessary.) 
E000<1000.100E“Y (relocate the first segment) 
~lOOFM .121E°Y .1282M .1330°Y .133CM .1436°Y 
~1438M .147C°Y .14A9M .14DB°Y .141EM .14F3°Y 
~14F5M .15D0“Y .15D6M .17A6°Y .17AEM .1A8C“Y 
~1A91M .1BB7°Y .1CAEM .2149°Y .2150M .221C°Y .24FFM 
(The monitor commands on the above four lines relocate 
the program segments and move the data segments. They 
can be typed as shown, or one per line. or even all on 


one line, Just be sure to type them correctly -- check 
and double check -- before pressing RETURN.) 
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Ing 514 9. 


Get your computer projects 
on track fast. 


Start with the Index. 


You want to start a computer project but you dont 
know where to begin. You know there's piles of information 
out there. But you dont have the time to dig through the 
mess. Start with the Index. And get on track. fast. 


Over 30,000 Entries 


Over 6 Years of Articles, Editorials & 
Columns Written on Personal Computers 


References from Over 800 Issues of 
Personal Computer Magazines 


Over 45 Publications 


Publications Like Byte, Kilobaud 
Microcomputing and Apple Orchard 


SEE YOUR LOCAL COMPUTER DEALER 


or 
Order from: 
MISSOURI INDEXING, INC. 
P.O. Box 301 


St. Ann, Mo. 63074 
(314) 997-6470 


Apple Assembly Line....January. 1982....Copyright (C) S-C SOFTWARE....Page 17 


6. The machine code relocator automatically updates any direct 
address references in the program being relocated. This saves 
us a lot of work, but it does not finish the work. We also have 
to fix all the address tables and all immediate address 


references. 
these (only one command per line): 


Enter the following monitor commands to fix all of 


E042:E2 E254:E2 E334:E0 F234:F1l 
E227:E7 E259:EB E336:E0 F239:F0 
E22C:E5 E25E:E3 E338:E0 F23E:F0 
E231:E0 E263:E0 E33A:E3 F243:F0 
E236:E5 E268:E5 E33C:E0 F248:F2 
E23B:El E26D:Fl E4A3:E4 F24D:FO0 
E240:E4 E272:E6 E83E:F2 F252:Fl 
E245:El E277:El F225:F0 F257:F0 
E24A:E6 E27C:E0 F22A:F1 F25C:EE 
E24F:E3 E281:EB F22F:F0 F261:E0 


7. The cold start routine in the Assembler must be patched: 


E030:ED E2 


E2E0:AD 83 CO AD 83 CO AQ9 00 85 D9 4C 08 E3 AD 83 CO 
E2F0:AD 83 CO 4C 75 E3 


8. If you wish, you may change the starting address of the 
Assembler Symbol Table to make more space: 


E011:10 
E2D6:10 


9. If you enter Applesoft from the S-C Assembler. the output 
hook from DOS will still be connected to the S-C Assembler 
output routine. But the assembler will be banked away since now 
the motherboard ROMs are enabled! The result is that the Apple 
will hang. To cure this problem, you will have to sacrifice the 
SLOW and FAST commands, and the ability to suspend/abort 
listings using the space bar and RETURN keys. This is not such 
a big sacrifice anyway. since all language card owners have the 
Autostart Monitor: you can use control-S to suspend a listing. 
You can also use RESET to abort one (provided your language card 
has a switch and it is in the UP position). [If you can't bear 
to part with SLOW and FAST, you can type FP and then hit RESET 
to get out of the Assembler.) 


Here are the patches to eliminate SLOW and FAST: 
E1E9:EA EA EA EA 
E22D:4D 4E 54 68 FF 


E273:FF FF FF 
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These patches also change FAST to MNT, a command that gracefully 
enters the monitor. From the monitor. a control-C will re-enter 
the S-C Assembler with the current source program intact; a 
control-B will cold start the S-C Assembler. 


10. Save the completed package on disk with: 
BSAVE LANGASM,ASE000,L$2000. 


11. Modify a copy of the HELLO program from the DOS 3.3 System 
Master Disk to BLOAD LANGASM instead of INTBASIC, and use this 
as your HELLO program. When you boot it will automatically load 
the S-C Assembler II into your language card. 


Parting Shots 


Maybe you think that I must have a thorough knowledge of how the 
S-C Assembler II works internally to be able to do this 
relocation, but this is not actually the case. I made a 
disassembly and also hex and ASCII dumps of the whole assembler, 
and I also started to untangle the code, but I only really know 
about a third of the code fairly well. I still have not the 
faintest idea of how the actual assembly is performed, although 
looking at the ASCII dump immediately revealed where the opcode 
and command tables were located, and the error messages. I also 
did find out the places where the error messages are 
produced,...this helps a lot in figuring out what is happening in 
the code. And with this not-too-well understanding of the inner 
workings, and with a lot of trial-and-error, I was able to find 
all the places where changes needed to be made. 


My S-C Assembler has been running from my language card for over 
a week, and I have used it a lot during this time; all has gone 
very well. And believe me, it is SO CONVENIENT to have it 
there! I really benefit from the language card, not only when 
using Pascal or CP/M, but also when I am running DOS. And I use 
the S-C Assembler II much more than Integer BASIC, so having the 
assembler in the language card is really the right thing for me. 
Maybe it is for you tool 


So, Bob, although you have made an excellent and very easy to 
use assembler. it is not quite true anymore that the S-C 
Assembler II is the easiest assembler to use...LANGASM is. And 
as you have guessed, LANGASM is nothing but the S-C Assembler II 
relocated into the language card! 


{ If the instructions for making LANGASM leave you breathless, 
you can order Quarterly Disk #6 ($15.00). It will include all 
the source code from this issue and the next two of AAL. and 
also an EXEC file which will create LANGASM from ASMDISK 4.0. 

It will be ready in early March, 1982. Another shortcut is to 
order the source code of the S-C Assembler II ($95.00). Then 
simply change the origin, modify the SLOW and FAST commands, and 
re-assemble it. Voila! LANGASM! ] 
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Handy EXEC FileS.....cccccccccccceseseeee BOD Sander—Cederlof 


Now that I have my Firmware card with Integer BASIC on it 
plugged into slot 4, I am all too frequently needing to fix 
those two bytes in DOS. For some reason I don't get around to 
putting the patched DOS onto every disk. But with a few EXEC 
files I can make the patches very easily now. 


The first EXEC file, which I call INT, is like this: 


CALL -151 (get into the monitor) 

co08sl (turn off the language card, if on) 
cocl (turn off the firmware card, if on) 
A5B8:C0 (patch DOS to use firmware card) 
A5CO0:Cl 

3D3G (return to DOS and Applesoft) 

INT (enter Integer BASIC) 


The second file I use to load LANGASM into the Language Card 
(see Paul Schlyter's article elsewhere in this issue of AAL). 
Here is what it looks like: 


CALL-151 (get into the monitor) 

cocl (turn off the firmware card, if on) 
C081 COs] (write enable the language card) 
BLOAD LANGASM (load LANGASM into the language card) 
A5B8: 80 (patch DOS to use the language card) 
A5C0:81 

_3D3G (return to DOS and Applesoft) 

INT (enter the assembler) 


The third EXEC file I use to patch DOS back to its normal mode 
of using the language card in slot 0. If I have already loaded 
the S-C Assembler II (LANGASM) into that card, but was using 
Integer BASIC, EXEC ASM will get me back to the assembler. 


CALL~151 (get into the monitor) 

co08s1 (turn off the language card, if on) 
cocl (turn off the firmware card, if on) 
A5B8: 80 (patch DOS to use the language card) 
A5C0:81 

3D3G (return to DOS and Applesoft) 

INT (enter the assembler) 


Just for fun, here is one more EXEC file. This one copies the 
contents of the firmware card in slot 4 into the language card 
in slot 0. A much faster way of loading it with Integer BASIC 
than running HELLO on the DOS 3.3 System Master! 


CALL-151 (get into the monitor) 

coco (turn on the firmware card) 
1000<D000.FFFFM (copy firmware card into mother RAM) 
Cocl (turn off the firmware card) 

C081 C081 (write enable language card) 
DO00<1000.3FFFM (copy stuff into the language card) 
3D0G (return to DOS) 
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If you don't have an editor that will help you build EXEC files 
like these, here is a short Applesoft program which will do it. 
I have also included a short program to display the file, in 
case you need to do that. 


Both of these programs CALL 64874. which is the Apple Monitor 
subroutine to read a line into the system buffer starting at 
$200. The CALL -3288 in READ EXEC FILE is to fix the ONERR 
stack pointer. 


100 REM yt ahr FILE 
130 D$ = CHR$ ( pe "FILE NAME: "3F 
140 SRInT” D SOPENSF PRINT ; oDELETENES. 
150 PRINT D eee bee eto} "WRITE"F$ 
0 GOSUB 5 (512) = 175 AND PEEK (513) = 170 AND PEEK 
(514) 2 11 “TH HEN” 320 


170 I = 

180 rie + 1:C = PEEK (I): PRINT CHR$ (C);: IF C < > 141 THEN 
190 GOTO 

220 PRINT BSecLOSE® 

230 END 


500 REM INPUT A LINE WITHOUT DOS KNOWING 
505 IN# 0: PR# 0: CALL 64874: CALL 1002: RETURN 


100 REM READ EXEC FILE 
130 D$ = CHR$ (4): INPUT "FILE NAME: ";F$ 
140 PRINT D$"NOMONCIO": PRINT "DS"OPEN"ES: PRINT D$"READ*"F$ 
150 ONERR 0 220 
160 CALL 6487 
OI = 51 


1bo I = 1+ 1:C = PEEK (I): PRINT CHR$ (C);: IF C < > 141 THEN 


GOTO 160 
220 CALL = 3288: PRINT D$*CLOSE" 


6500/1 One-Chip COMPUCEL .c cs ec css eceecsveceer sweees DAN Pote 


Commodore Semiconductor Group has announced a new one-chip 
microcomputer, called the 6500/1. (I believe the same chip is 
available from Synertek and Rockwell.) The 6500/1 has a 6502 
CPU and is compatible with existing 6502 programs. There are 
also four I/O ports (32 bi-directional lines, the equivalent of 
two 6522 devices), a counter, 2048 bytes of ROM, and 64 bytes of 
Static RAM. Your choice of l- or 2-MHz internal clock. It can 
be ordered as masked-ROM, PROM, or piggy-back EPROM. For more 
information call Commodore at (214) 387-0006. 
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A New COMPILED 6.06 665.6046 0665 6600844004006 600.0% « BODDY Deen 


For about 3 months now I have been using test versions of a new 
compiler from Laumer Research. The compiler is called FLASH! 
and compiles Integer Basic programs into fast machine language 
programs. The machine code will execute 12 times faster than 
Integer Basic and the speed increase gets even greater on larger 
programs. 


This compiler unlike all others on the market today has the 
ability to produce not only binary machine code but will make 
assembly language listings and files. Complete with labels for 
line numbers, forward references, variables, and runtime package 
entry points. All assembly language is compatable with the S-C 
Assembler II syntax and the file format is the familiar 'I' type 
DOS file ready to assemble with the runtime package! 


This does save time in the development of machine language 
programs! A program which might take 2 weeks of your time to 
develop in assembly language, can be done in 2 hours in basic 
then compiled to get the speed benifit of machine language. If 
you have the runtime source code option you can take an assembly 
language file that the compiler can produce and, using the S-C 
Assembler, you can edit the inner loops of you program to gain 
even more speed or add new assembly language modules of your 
own ! 


The runtime package I keep referring to is the collection of 
subroutines which support the compiled code by providing 
commonly used functions such as routines to multiply and divide 
numbers, string handling functions, and input/output routines. 
The runtime package is self contained and does not require 
Integer Basic to allow a compiled program to execute (hark ye 
software authors!). The compiled code will even execute on a 
cassette based system if you ask FLASH! to put the runtime code 
into the code file with your compiled program. FLASH! will not 
normally include the runtime package in your output file to 
conserve your valuable disk space. Instead it will use a 
standard runtime package that runs from $800-S1BFF and is loaded 
by a short loader placed at the beginning of the output file. 


FLASH! will compile every normal Integer Basic statement except 
the statement "LIST" which is ignored by FLASH!. FLASH! also 
has 28 new statements and 3 new functions which provide DATA, 
READ, HPLOT, DRAW, XDRAW, CHRS, 16 bit PEEK's and POKE's, hex 
input and output abilities, hex strings of almost any length (to 
free memory size), and more to provide almost everything that 
could be of use in a systems programming language. 


I have a hires graphics program which generates mazes that I 
have wanted to code in machine language for some time now. In 
Basic the program takes about 12 minutes to run. I go to high 
school during the daytime and I am in the school band. After 
school I have two part time jobs to take up most of the rest of 
my time. So its been hard to find time to convert the program 
to machine language with so little spare time. 
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Once I got a test version of FLASH! and compiled the maze 
program it would draw a maze in 1.25 minutes! A dramatic 
increase in program speed. Using the assembly languge file 
output by FLASH! I recoded some of the code more efficiently and 
got the maze program to run in 55 seconds! Now it almost takes 
longer to print the maze on my printer than it does to run the 
compiled version of the maze program. 


The FLASH! compiler is so easy to use that I have been using it 
for three months before the preliminary reference manual was 
printed. FLASH! will keep track of a compilation by status 
fields on the bottom line of the Apple II screen. Since a 
compilation can take several minutes the status information is 
handy to have. I think that the FLASH! compiler is one of the 
slickest programs in my program library and really compliments 
the S-C Assembler II. I plan much use for it in the future. 


Here is an example of the code produced by the FLASH! compiler. 
for the basic statements :; 
10 A=3 
20 B=-1000*A 
30 PRINT B/ (A+2) 


the following code is created by FLASH! : 


1C00- -OR $1000 program origin 

eIN R.RUNTIME LOADER 
1C1E= 20 63 OA L.START JSR R.INIT initialize runtime package 
1C21= 00 00 ~DA LINE.TBL line number table address 
1C23= 00 00 -DA LINE .TBLN number of entries 
1025= 00 00 eDA DATA.TBL data statement table 
1C2T= 00 00 -DA DATA.TBLN number of entries 
1C29= 78 1C -DA DSP.VAR.TBL begining of DSP variables 
1C2B=- 7D 1C -DA END.VARS end of all variables 
1C2D= 7D 1C ~DA FREE.P free memory pointer 
1C2F- 83 79 -DA FREE.S size of free memory 
1031= 00 ~HS 00 flag for error routine 
1C32= AQ 03 L.10 LDA #3 lo byte of constant 3 
1C034= AO 00 LDY /3 hi byte of constant 3 
1036- 8D 79 1C STA A store lo byte of A 
1€39= 8C 7A 1C STY A+1 store hi byte of A 
1C3C- AQ 18 L.20 LDA #-1000 load lo byte of -1000 
1C3E= AO FC LDY /~1000 load hi byte of -1000 
1C40=- 20 39 09 JSR R.PSH push -1000 on stack 
1C43- AD 79 1C LDA A get lo byte of A 
1C46— AC 7A IC LDY A+1 get hi byte of A 
1C49=- 20 9B 09 JSR R.MUL1 multiply -10008A 
1C4C= AQ 7B LDA #B lo adrs of B 
1CHE- AO 1C LDY /B hi adrs of B 
1050=- 20 2B 13 JSR R.ASG.VAR save value into B 
1C53- AD 7B 1C L.20 LDA B load lo byte of B 
1056= AC 7C 1C LDY B+1 load hi byte of B 
1€59= 20 39 09 JSR R.PSH push value of B on stack 
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1C5C=- AD 79 1C LDA A load lo byte of A 

1C5F=- AC 7A 1C LDY A+1 load hi byte of A 

1C62= 20 39 09 JSR R.PSH push value of A on stack 

1C65= AQ 02 LDA #2 get lo byte of 2 

1C67= AO 00 LDY /2 get hi byte of 2 

1C69= 20 48 09 JSR R.ADD1 compute A+2 

1C6C- 20 DO 09 JSR R.DIV2 compute B/(A+2) 

1C6F= 20 2B 12 JSR R.PRTN1 print result 

1C72= 20‘ 8E FD JSR MON.CROUT print car retn 

1C75= 4C BY OD JMP R.NOEND go to NOEND error 
LINE.TBL .EQ 0 no table because no GOTO's 
LINE.TBLN .EQ 0 with expressions on them 
DATA.TBL .EQ 0 no table because no 
DATA TBLN .EQ 0 data statements 

1C78= 00 DSP.VAR.TBL .HS 00 end of DSP variables 

1C79= A -BS 2 2 byte value of A 

1C7B= B -BS 2 2 byte value of B 

1C7D= END.VARS end of variable area 

1C7D= FREE.P start of free memory 
FREE.S .EQ 31107 size of free memory 

1C7D=- EN end of code 


FLASH! 
an Integer BASIC Compiler 


by Laumer Research 
1832 School Rd. 
Carrollton, Texas 75006 


Compiles Integer BASIC to fast Machine language which runs 
on any Apple II or Apple II Plus, disk or cassette, 
16k to 48k with or without Integer BASIC. 


28 new statements and 3 new functions to extend the language 
including DATA, READ, hex I/0, strings to 32767 bytes, 
16-bit PEEKs and POKEs, CHR$, HOME, NORMAL, INVERSE, 

HPLOT, DRAW, XDRAW and much nore! 


Makes BRUN files positioned anywhere you want in memory. 


Assembly language listing and file output compatible 
with S-C Assembler II! 


Introductory price $65.00 for FLASH! compiler, 

$20.00 for runtime package source code. 

(Prices good until May 1, 1982) 

(Source code requires S-C Assembler II 4.0 and FLASH!) 


FLASH! can be used on a 48k Apple II or Apple II Plus with 
Integer BASIC in ROM or language card. Runs under DOS 3.3 on 
one disk drive. 


Apple Assembly Line is published monthly by S-C SOFTWARE, P. O. Box 280300, 
Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is $12 per year 
in the U.S.A., Canada, and Mexico. Other countries add $12/year for extra 
postage. Back issues are available for $1.20 each (other countries add $1 per 
back issue for postage). All material herein is copyrighted by S-C SOFTWARE, 
all rights reserved. Unless otherwise indicated, all material herein is 
authored by Bob Sander-Cederlof. (Apple is a registered trademark of Apple 
Computer, Inc.) 
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